home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Database Designers / Rational Rose 2000 / Rational Setup.EXE / common / lib / Win32.pm < prev   
Encoding:
Perl POD Document  |  1998-11-15  |  1.4 KB  |  61 lines
  1. package Win32;
  2.  
  3. $VERSION = $VERSION = '0.14';
  4.  
  5. require Exporter;
  6. require DynaLoader;
  7. @ISA = qw(Exporter DynaLoader);
  8. @EXPORT =
  9.     qw(
  10.     NULL
  11.     WIN31_CLASS
  12.     OWNER_SECURITY_INFORMATION
  13.     GROUP_SECURITY_INFORMATION
  14.     DACL_SECURITY_INFORMATION
  15.     SACL_SECURITY_INFORMATION
  16.     MB_ICONHAND
  17.     MB_ICONQUESTION
  18.     MB_ICONEXCLAMATION
  19.     MB_ICONASTERISK
  20.     MB_ICONWARNING
  21.     MB_ICONERROR
  22.     MB_ICONINFORMATION
  23.     MB_ICONSTOP
  24. );
  25.  
  26. # Routines available in core:
  27. # Win32::GetLastError
  28. # Win32::LoginName
  29. # Win32::NodeName
  30. # Win32::DomainName
  31. # Win32::FsType
  32. # Win32::GetCwd
  33. # Win32::GetOSVersion
  34. # Win32::FormatMessage ERRORCODE
  35. # Win32::Spawn COMMAND, ARGS, PID
  36. # Win32::GetTickCount
  37. # Win32::IsWinNT
  38. # Win32::IsWin95
  39.  
  40. # We won't bother with the constant stuff, too much of a hassle. Just hard
  41. # code it here.
  42. sub NULL { (0);}
  43. sub WIN31_CLASS { &NULL;}
  44. sub OWNER_SECURITY_INFORMATION {(0x00000001);}
  45. sub GROUP_SECURITY_INFORMATION {(0x00000002);}
  46. sub DACL_SECURITY_INFORMATION {(0x00000004);}
  47. sub SACL_SECURITY_INFORMATION {(0x00000008);}
  48.  
  49. sub MB_ICONHAND        { (0x00000010); }
  50. sub MB_ICONQUESTION    { (0x00000020); }
  51. sub MB_ICONEXCLAMATION    { (0x00000030); }
  52. sub MB_ICONASTERISK    { (0x00000040); }
  53. sub MB_ICONWARNING    { (0x00000030); }
  54. sub MB_ICONERROR    { (0x00000010); }
  55. sub MB_ICONINFORMATION    { (0x00000040); }
  56. sub MB_ICONSTOP        { (0x00000010); }
  57.  
  58. bootstrap Win32;
  59.  
  60. 1;
  61.